Dos/V Magazine 1995 October 15/CD [VMAG951015].bin/_demo/nekodemo/rtrv/shared.dir/00350_EX+0FrameScore.ls

Text File | 1995-05-10 | 1.3 KB | 30 lines

on enterFrame
  global gtpoem, gppoem, gtbio, gpbio, gcurrentnumber, gblenddraw, galreadyshownbutton, greq
  set the cursor of sprite 17 to [409, 410]
  set the cursor of sprite 40 to [402, 404]
  set the cursor of sprite 41 to [401, 403]
  set the cursor of sprite 42 to [405, 406]
  set the cursor of sprite 43 to [407, 408]
  set the cursor of sprite 13 to [409, 410]
  set the cursor of sprite 14 to [409, 410]
  set the cursor of sprite 15 to [409, 410]
  set the cursor of sprite 16 to [409, 410]
  set galreadyshownbutton to 1
  set a to 20
  set b to a / 2
  makepuppet(2, getbioname(gtbio, gcurrentnumber, "NK"), gblenddraw, 480, 260, 36)
  makepuppet(15, getpoemname(gtpoem, gcurrentnumber, 1), 100, 160, getpoempos(gtpoem, gcurrentnumber, 1) + (the height of cast getpoemname(gtpoem, gcurrentnumber, 1) / 2))
  makepuppet(16, getpoemname(gtpoem, gcurrentnumber, 2), 100, 160, getpoempos(gtpoem, gcurrentnumber, 2) + (the height of cast getpoemname(gtpoem, gcurrentnumber, 2) / 2))
  set c to 120
  if greq = "E" then
    makepuppet(17, getpoemname(gtpoem, gcurrentnumber, 5), 100, 330, c)
  else
    makepuppet(17, getpoemname(gtpoem, gcurrentnumber, 3), 100, 330, c)
    makepuppet(18, getpoemname(gtpoem, gcurrentnumber, 4), 100, 330, c + the height of cast getpoemname(gtpoem, gcurrentnumber, 3) + 30)
  end if
  updateStage()
end

on exitFrame
end